home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / game / chon / checom.bas < prev    next >
BASIC Source File  |  1993-11-30  |  54KB  |  1,263 lines
  1. 10000 '********************************************************************
  2. 10010 '*                                                                  *
  3. 10020 '*                  ＣＨＯＮ (改良版)                               *
  4. 10030 '*                          / 93.8.13                               *
  5. 10040 '*                       J.HON                                      *
  6. 10050 '********************************************************************
  7. 10060 CLS:DEFINT A-Z:SCREEN@1:DIM SPR(255),F(255,80)
  8. 10070 LOAD@"chonlogo.tif",(92,100)
  9. 10080 LOAD@"FM.FMB":LOAD@"PCM.PMB":LOAD@"SPRITE.DAT",F
  10. 10090 VIEW(0,0)-(511,239):WINDOW(0,0)-(511,239):ON ERROR GOTO *ERROR
  11. 10100 '
  12. 10110 FOR PT=0 TO 80
  13. 10120 FOR I=0 TO 255
  14. 10130 SPR(I)=F(I,PT):NEXT:PX=PT MOD 20:PY=INT(PT/20)
  15. 10140 DEF SPRITE 0,PT*4,SPR,1:NEXT
  16. 10150 '******************** FONT ******************************************
  17. 10160 SYMBOL( 320,80),"ＧＡＭＥＯＶＥＲ",1,1
  18. 10170 FOR I=0 TO 7
  19. 10180 LINE( 320,80+I)-( 320+16*8,80+I),AND,[(I+8)*16,(I+8)*16,(I+8)*16]
  20. 10190 LINE( 320,80+16-I)-( 320+16*8,80+16-I),AND,[(I+8)*16,(I+8)*16,(I+8)*16]
  21. 10200 NEXT
  22. 10210 FOR PT=0 TO 7
  23. 10220 GET@A( 320+PT*16,80)-( 320+PT*16+15,80+15),SPR
  24. 10230 FOR I=0 TO 255:IF SPR(I)=0 THEN SPR(I)=-32768
  25. 10240 NEXT
  26. 10250 DEF SPRITE 0,(PT+81)*4,SPR,1:NEXT
  27. 10260 ERASE F,SPR
  28. 10270 '********************************************************************
  29. 10280 *GORO
  30. 10290 DEFINT A-Z:S=64:M=20:SCREEN@1:CLS:SPRITE ON:GOSUB *INIT
  31. 10300 'INTERVAL OFF
  32. 10310 'GOTO *GAMEOVER
  33. 10320 GOSUB *TITLE:OUT &H440,27:OUT &H442,&H0303,2:SPRITE SCREEN 0
  34. 10330 CLS:SP=300:ST=0:LF=3
  35. 10340 PLAY DON$
  36. 10350 FOR F=0 TO S-1:GOSUB *SOFF:NEXT:GOSUB *FINIT
  37. 10360 '
  38. 10370 '***********************  ＳＴＡＲＴ ********************************
  39. 10380 PLAY OFF:IF ST=>20 THEN GOTO *ENDING
  40. 10390 LINE(0,0)-(239,239),PSET,0,BF:GOSUB *FONT
  41. 10400 SYMBOL(80,100),"STAGE"+STR$(ST+1),2,1
  42. 10410 SYMBOL(81,100),"STAGE"+STR$(ST+1),2,1
  43. 10420 FOR Y=0 TO 7
  44. 10430 LINE(80,Y+100)-(239,Y+100),AND,[(Y*2+16)*8,(Y*2+16)*8,(Y*2+16)*8]
  45. 10440 LINE(80,115-Y)-(239,115-Y),AND,[(Y*2+16)*8,(Y*2+16)*8,(Y*2+16)*8]
  46. 10450 NEXT
  47. 10460 FOR Y=0 TO 14:FOR X=0 TO 15:M(X,Y)=0:ATM(X,Y,0)=0:ATM(X,Y,1)=0:NEXT X,Y:X=5:Y=5
  48. 10470 '
  49. 10480 FOR I=0 TO 10000:NEXT
  50. 10490 IF PTRIG(1)=3 AND INKEY$=" " THEN SPRITE OFF:INPUT "STAGE";ST:ST=ST-1:SPRITE ON:GOTO 10380
  51. 10500 IF INKEY$<>"" THEN 10500
  52. 10510 GOSUB *INITSTAGE:IF ST>17 THEN MS=1 ELSE MS=0
  53. 10520 FOR I=0 TO SP:PSET(I,224),7:NEXT
  54. 10530 SYMBOL(280,16),"GIVE UP: RUN BUTTON",1,.5!,6,3:GOSUB *音楽初期
  55. 10540 '************************  MAIN  ************************************
  56. 10550 F=0:M=2:X1=X*16:Y1=Y*16:GOSUB *PUTME:GOSUB *SCHEME:GOSUB *SON 
  57. 10560 '
  58. 10570 P=PAD(1):PT=PTRIG(1)
  59. 10580 IF P>0 AND (P MOD 2)=1 THEN M=INT((P-1)/2):IF M(X+AX(M),Y+AY(M))=0 AND ATM(X+AX(M),Y+AY(M),0)=0 THEN GOSUB *MOVEME ELSE X1=X*16:Y1=Y*16:GOSUB *SCHEME:GOSUB *PUTME:FOR II=0 TO SP:NEXT
  60. 10590 IF PTRIG(1)=1 AND M(X+AX(M),Y+AY(M))=1 THEN GOSUB *BROKEN
  61. 10600 IF PTRIG(1)=1 AND ATM(X+AX(M),Y+AY(M),0)>0 THEN GOSUB *MOVEATM
  62. 10610 IF PTRIG(1)=1 AND M(X+AX(M),Y+AY(M))=3 THEN GOSUB *MOVEBALL
  63. 10620 IF PTRIG(1)=5 AND SKP>0 AND ST<18 THEN GOSUB *CLEAR:GOSUB *SKIP:ST=ST+1:GOTO 10380
  64. 10630 IF ATNUM=0 THEN GOSUB *CLEAR:ST=ST+1:GOTO 10380
  65. 10640 IF PTRIG(1)=4 THEN GOSUB *DEAD:IF LF<0 THEN *GAMEOVER ELSE 10380
  66. 10650 GOSUB *SPEED
  67. 10660 GOTO 10570
  68. 10670 '************************ SUB RUTINE  *******************************
  69. 10680 *SPEED
  70. 10690 IF PTRIG(1)=2 AND SP>1 THEN PSET(SP,224),7,XOR:SP=SP-1
  71. 10700 IF PTRIG(1)=8 AND SP<560 THEN SP=SP+1:PSET(SP,224),7,XOR
  72. 10710 RETURN
  73. 10720 *MOVEME:FOR I=1 TO 15:X1=X*16+AX(M)*I:Y1=Y*16+AY(M)*I:GOSUB *SPEED
  74. 10730 FOR II=0 TO SP:NEXT:IF (I MOD 4)=0 THEN GOSUB *SCHEME
  75. 10740 GOSUB *PUTME:NEXT:X=X+AX(M):Y=Y+AY(M):X1=X*16:Y1=Y*16
  76. 10750 GOSUB *SCHEME:GOSUB *PUTME:RETURN
  77. 10760 *BROKEN:ERASE F:DIM F(S)
  78. 10770 CH=5:X1=X+AX(M):Y1=Y+AY(M)
  79. 10780 '
  80. 10790 C0=1:F(1)=1:BC=0
  81. 10800 ATM=2:F=1:ATI=0:X2=X1*16:Y2=Y1*16:GOSUB *SCHEBOM:GOSUB *PUTATM:GOSUB *SON:CH=0:PX=X1+1:PY=Y1:GOSUB *CHRPUT:M(X1,Y1)=0
  82. 10810 GOSUB *爆発
  83. 10820 RETURN
  84. 10830 '
  85. 10840 *SKIP :PLAY DOW$
  86. 10850 LINE(0,0)-(239,239),PSET,0,BF
  87. 10860 SYMBOL(60,100),"SKIP",4,2
  88. 10870 SYMBOL(61,100),"SKIP",4,2
  89. 10880 FOR Y=0 TO 16 
  90. 10890 LINE(60,Y+100)-(239,Y+100),AND,[(Y+15)*8,(Y+15)*8,(Y+15)*8]
  91. 10900 LINE(60,131-Y)-(239,131-Y),AND,[(Y+15)*8,(Y+15)*8,(Y+15)*8]
  92. 10910 NEXT:SKP=SKP-1:WAIT 150
  93. 10920 RETURN
  94. 10930 '
  95. 10940 *CLEAR:WAIT 100:INTERVAL OFF:PLAY OFF:LINE(0,224)-(319,224),PSET,0
  96. 10950 FOR II=0 TO 10000:NEXT:FOR F=0 TO S-1:GOSUB *SOFF:NEXT
  97. 10960 RETURN
  98. 10970 *WAIT:FOR II=0 TO 5000:NEXT:RETURN
  99. 10980 *DEAD:INTERVAL OFF:PLAY OFF:LINE(0,224)-(319,224),PSET,0
  100. 10990 WAIT 80:PLAY JBK$
  101. 11000 FOR I=0 TO 3:SPRITE 1,0,(I+57)*4
  102. 11010 WAIT 20:NEXT I:F=0:GOSUB *SOFF
  103. 11020 FOR II=0 TO 10000:NEXT:FOR F=0 TO S-1:GOSUB *SOFF:NEXT
  104. 11030 LF=LF-1:RETURN
  105. 11040 *FONT:LINE(240,176)-(319,239),PSET,0,BF
  106. 11050 SYMBOL(240,176),"STAGE:"+MID$(STR$(ST+1)+" ",2,2),.7!,.5!
  107. 11060 SYMBOL(240,192),"LEFT :"+HEX$(LF),.7!,.5!
  108. 11070 SYMBOL(240,200),"SKIP :"+HEX$(SKP),.7!,.5!
  109. 11080 RETURN
  110. 11090 *FINIT:LINE(240,0)-(272,128+15),PSET,0,BF
  111. 11100 SYMBOL(272,16),"CHON",4,2,7,3,PSET
  112. 11110 FOR I=0 TO 63
  113. 11120 LINE(240,I+16)-(272,I+16),XOR,[I*4,I*4,I*4]
  114. 11130 LINE(240,I+16+64)-(272,I+16+64),XOR,[255-I*4,255-I*4,255-I*4]:NEXT
  115. 11140 RETURN
  116. 11150 *SCROLL:OUT &H440,17:OUT &H443,SC AND &HFF:RETURN
  117. 11160 *FROLL:LINE(70,(240+SC) AND &HFF)-STEP(250,16),PSET,0,BF
  118. 11170 SYMBOL(70,(240+SC) AND &HFF),EN$(FON),1,1,7:RETURN
  119. 11180 *ERROR:SPRITE OFF:CLS
  120. 11190 IF ERR=9 THEN LOCATE 10,12:PRINT "環状構造出来ないんです｡もう一度この面の初めからやってください(^_^;)｡":WAIT 400:SPRITE ON:GOSUB *CLEAR:GOSUB *FINIT:RESUME 10380
  121. 11200 LOCATE 40,12:PRINT"エラーが発生しましたよ｡ ERROR=";ERR;
  122. 11210 LOCATE 40,13:PRINT"それなりに対処してくださいませ。"
  123. 11220 LOCATE 40,14:PRINT"Ｈｉｔ　ａｎｙ　ｋｅｙ！"
  124. 11230 X$=INPUT$(1):CLS:SPRITE ON:RESUME
  125. 11240 END
  126. 11250 '*********************** 音楽 ***************************************
  127. 11260 *音楽初期:INTERVAL 4:ON INTERVAL GOSUB *音楽:MML=0:MML0=0
  128. 11270 PLAY Y1$(0,MS),,,,,,Y2$(0,MS),Y3$(0,MS),Y4$(0,MS)
  129. 11280 'PLAY "V0",,,,,,"V0","V0","V0"
  130. 11290 INTERVAL ON
  131. 11300 *音楽
  132. 11310 'IF PLAY(1)=60 THEN PLAY OFF:GOSUB *音楽初期
  133. 11320 IF ABS(MML0*4-PLAY(1))>10 THEN RETURN
  134. 11330 MML=MML+1:MML0=MML0+1
  135. 11340 IF MML=3 THEN MML=1
  136. 11350 PLAY Y1$(MML,MS),,,,,,Y2$(MML,MS),Y3$(MML,MS),Y4$(MML,MS)
  137. 11360 RETURN
  138. 11370 '****************** ENDING MUSIC ************************************
  139. 11380 *EMUSIC:IF MML=26 THEN RETURN
  140. 11390 IF PLAY(1)+3=(MML-1)*2 OR MML=0 THEN 11400 ELSE RETURN
  141. 11400 PLAY ,,,,,,E1$(MML),E2$(MML),E3$(MML),E4$(MML),E5$(MML),E6$(MML),E7$(MML)
  142. 11410 MML=MML+1
  143. 11420 IF MML<3 THEN GOTO 11400
  144. 11430 RETURN
  145. 11440 '****************** ＧＡＭＥ　ＯＶＥＲ ******************************
  146. 11450 *GAMEOVER:LINE(0,0)-(239,239),PSET,0,BF:PLAY OFF
  147. 11460 C=8:SYMBOL(112,48),"CONTINUE?",1,.5!
  148. 11470 FOR I=0 TO 3 
  149. 11480 LINE(112,48+I)-(239,48+I),AND,[(I+4)*32,(I+4)*32,(I+4)*32]
  150. 11490 LINE(112,48+7-I)-(239,48+7-I),AND,[(I+4)*32,(I+4)*32,(I+4)*32]
  151. 11500 NEXT
  152. 11510 LINE(0,64)-(239,239),PSET,0,BF:PLAY OFF:PLAY ,,,,,,"V15T120L2@3"
  153. 11520 C=C-1:I=255:PLAY,,,,,,"N"+STR$((8-C)*2+56)
  154. 11530 SYMBOL(80,64),AKCNV$(HEX$(C)),8,8,[C*32,I,0],0
  155. 11540 I=I-9:IF PTRIG(1)=1 THEN LF=3:GOTO 10380 ELSE IF PTRIG(1)=2 THEN 11580
  156. 11550 SYMBOL(80,64),AKCNV$(HEX$(C)),8,8,[C*32*I/256,I,0],0
  157. 11560 IF I>10 THEN 11540
  158. 11570 IF PLAY(0) AND PTRIG(1)=0 THEN 11570
  159. 11580 IF C>0 THEN 11510
  160. 11590 '
  161. 11600 LINE(0,0)-(239,239),PSET,0,BF:PLAY OFF
  162. 11610 A1$="V10@11T180O3L8CRDRDERE& E2.&ECF+RF+RF+GRG& G2.&GEARAR BRRBRRAB4"
  163. 11620 A2$="V13@12T180O2L8ERF+RF+GRG&G2.&GEARA RA BRB& B2.&BA>DRDRERRERRDE4"
  164. 11630 A3$="V8@1T180O3L4Q8O1D>G<D>G<D>G<D>G<"
  165. 11640 A4$="V15@3L4V15T180O4R1R1R1R1R2E.E.D8E2"
  166. 11650 A5$="V13@106T180O2L16"
  167. 11660 A6$="RE8R ERER E E8.&E4R1" 
  168. 11670 '
  169. 11680 PLAY A1$,A2$,,,,,A3$+A3$+"O3L16BBGGEECCL4O6Q8A.A.A8A8R.O3L16BGE",A4$
  170. 11690 FOR F=0 TO 7:GOSUB *SCHEF:GOSUB *SON:NEXT
  171. 11700 FOR I=-180 TO 180 STEP 2:RAD!=3.14159!*I/180:R!=(180-I)/80+1
  172. 11710 F=0:X2=100+COS(RAD!)*56*R!:Y2=110+SIN(RAD!)*56*R!:GOSUB *PUTATM'"G"
  173. 11720 F=1:X2=100+COS(RAD!)*40*R!:Y2=110+SIN(RAD!)*40*R!:GOSUB *PUTATM'"A"
  174. 11730 F=2:X2=100+COS(RAD!)*24*R!:Y2=110+SIN(RAD!)*24*R!:GOSUB *PUTATM'"M"
  175. 11740 F=3:X2=100+COS(RAD!)*8*R!:Y2=110+SIN(RAD!)*8*R!:GOSUB *PUTATM'"E"
  176. 11750 F=4:X2=100+COS(RAD!)*-8*R!:Y2=110+SIN(RAD!)*-8*R!:GOSUB *PUTATM'"O"
  177. 11760 F=5:X2=100+COS(RAD!)*-24*R!:Y2=110+SIN(RAD!)*-24*R!:GOSUB *PUTATM'"V"
  178. 11770 F=6:X2=100+COS(RAD!)*-40*R!:Y2=110+SIN(RAD!)*-40*R!:GOSUB *PUTATM'"E"
  179. 11780 F=7:X2=100+COS(RAD!)*-56*R!:Y2=110+SIN(RAD!)*-56*R!:GOSUB *PUTATM'"R"
  180. 11790 NEXT I
  181. 11800 IF PLAY(0) THEN 11800 ELSE FOR I=0 TO 20000:NEXT:GOTO 10310
  182. 11810 '*********************** MOVE ATOM **********************************
  183. 11820 *MOVEATM
  184. 11830 X1=X+AX(M):Y1=Y+AY(M):F=ATM(X1,Y1,1):ATM=ATM(X1,Y1,0)
  185. 11840 IF M(X1+AX(M),Y1+AY(M))>0 THEN GOSUB *HANTEI:RETURN
  186. 11850 IF ATM(X1+AX(M),Y1+AY(M),0)>0 THEN GOSUB *HANTEI:RETURN
  187. 11860 FOR I=1 TO 8:X2=X1*16+AX(M)*2*I:Y2=Y1*16+AY(M)*2*I
  188. 11870 IF M=0 THEN ATI=INT((8-I)*5/8+6)
  189. 11880 IF M=1 THEN ATI=INT(I*5/8)
  190. 11890 IF M=2 THEN ATI=INT(I*5/8+6)
  191. 11900 IF M=3 THEN ATI=INT((8-I)*5/8)
  192. 11910 GOSUB *SCHEATM
  193. 11920 FOR II=0 TO (120+SP*1.5!):NEXT
  194. 11930 GOSUB *PUTATM
  195. 11940 NEXT
  196. 11950 ATM(X1+AX(M),Y1+AY(M),0)=ATM(X1,Y1,0):ATM(X1+AX(M),Y1+AY(M),1)=F
  197. 11960 ATM(X1,Y1,0)=0:ATM(X1,Y1,1)=0:M(X1,Y1)=0
  198. 11970 X1=X1+AX(M):Y1=Y1+AY(M):X2=X1*16:Y2=Y1*16:AT1=0:GOSUB *PUTATM
  199. 11980 GOTO 11840
  200. 11990 '*********************** MOVE BALL **********************************
  201. 12000 *MOVEBALL
  202. 12010 X1=X+AX(M):Y1=Y+AY(M):F=ATM(X1,Y1,1):ATM=5
  203. 12020 IF M(X1+AX(M),Y1+AY(M))>0 THEN RETURN
  204. 12030 IF ATM(X1+AX(M),Y1+AY(M),0)>0 THEN RETURN
  205. 12040 FOR I=1 TO 16:X2=X1*16+AX(M)*I:Y2=Y1*16+AY(M)*I:'X$=INPUT$(1)
  206. 12050 IF M=2 THEN ATI=INT((7 AND (16-I))*6/8+6)
  207. 12060 IF M=1 THEN ATI=INT((7 AND I)*6/8)
  208. 12070 IF M=0 THEN ATI=INT((7 AND I)*6/8+6)
  209. 12080 IF M=3 THEN ATI=INT((7 AND (16-I))*6/8)
  210. 12090 GOSUB *SCHEBALL
  211. 12100 FOR II=0 TO (120+SP)/1.2!:NEXT
  212. 12110 GOSUB *PUTATM
  213. 12120 NEXT
  214. 12130 ATM(X1+AX(M),Y1+AY(M),1)=F
  215. 12140 ATM(X1,Y1,0)=0:ATM(X1,Y1,1)=0:M(X1,Y1)=0
  216. 12150 X1=X1+AX(M):Y1=Y1+AY(M):X2=X1*16:Y2=Y1*16:AT1=0:GOSUB *PUTATM
  217. 12160 M(X1,Y1)=3:GOTO 12020
  218. 12170 '********************** HANTEI **************************************
  219. 12180 '*HANTEI:ERASE MU,HX,HY,CMB1,CMB2,残価数,G,CX,CY,F
  220. 12190 'DIM MU(S),HX(S),HY(S),CMB1(S),CMB2(S),残価数(S),G(S),CX(S*4),CY(S*4)
  221. 12200 'DIM F(S):C=1:MU(0)=M:HX(1)=X1:HY(1)=Y1
  222. 12210 *HANTEI
  223. 12220 FOR II=0 TO S
  224. 12221 MU(II)=0:HX(II)=0:HY(II)=0:CMB1(II)=0:CMB2(II)=0:残価数(II)=0:G(II)=0:CX(II*4)=0:CY(II*4)=0:CX(II*4+1)=0:CY(II*4+1)=0:CX(II*4+2)=0:CY(II*4+2)=0:CX(II*4+3)=0:CY(II*4+3)=0:F(II)=0
  225. 12230 NEXT
  226. 12231 C=1:MU(0)=M:HX(1)=X1:HY(1)=Y1
  227. 12240 '****************
  228. 12250 *LOOP0:残価数(C)=原子価(ATM(HX(C),HY(C),0))-CMB(残価数(C-1),CMB1(C-1),CMB2(C-1))
  229. 12260 *LOOP1
  230. 12270 IF CMB(残価数(C),CMB1(C),0)<0 THEN C=C-1:CMB1(C)=CMB1(C)+1:IF C=0 THEN RETURN ELSE GOTO *LOOP0
  231. 12280 MU(C)=0:CMB2(C)=0
  232. 12290 G=0:FOR I=0 TO 2
  233. 12300 IF MU(C)=(3 AND (MU(C-1)+2)) THEN MU(C)=MU(C)+1
  234. 12310 IF 原子価(ATM(HX(C)+AX(MU(C)),HY(C)+AY(MU(C)),0))-CMB(残価数(C),CMB1(C),CMB2(C))>=0 THEN G=G+1
  235. 12320 MU(C)=MU(C)+1:CMB2(C)=CMB2(C)+1:NEXT
  236. 12330 IF G<>3 THEN CMB1(C)=CMB1(C)+1:GOTO *LOOP1
  237. 12340 '******************
  238. 12350 MU(C)=0:CMB2(C)=0:G(C)=0:ATM0(HX(C),HY(C))=CMB1(C)
  239. 12360 *LOOP2:IF MU(C)=(3 AND (MU(C-1)+2)) THEN MU(C)=MU(C)+1:IF  MU(C)>3  THEN 12420
  240. 12370 IF CMB(残価数(C),CMB1(C),CMB2(C))=0 THEN G(C)=G(C)+1:GOTO 12410
  241. 12380 R=原子価(ATM(HX(C)+AX(MU(C)),HY(C)+AY(MU(C)),0))-CMB(残価数(C),CMB1(C),CMB2(C))
  242. 12390 IF R=0 THEN G(C)=G(C)+1
  243. 12400 IF R>0 THEN C=C+1:HX(C)=HX(C-1)+AX(MU(C-1)):HY(C)=HY(C-1)+AY(MU(C-1)):CMB1(C)=0:GOTO *LOOP0
  244. 12410 MU(C)=MU(C)+1:CMB2(C)=CMB2(C)+1:IF MU(C)<4 THEN GOTO *LOOP2
  245. 12420 IF G(C)=3 AND C>1 THEN G(C)=0:C=C-1:G(C)=G(C)+1:GOTO 12410
  246. 12430 IF G(C)=3 AND C=1 THEN C0=1:GOSUB *消去:RETURN
  247. 12440 GOSUB *消去::RETURN
  248. 12450 '********************** 消去 ****************************************
  249. 12460 *消去:MU(C)=0:CMB2(C)=0:G(C)=0:CMB1(C)=ATM0(HX(C),HY(C))
  250. 12470 *LOOP3:IF MU(C)=(3 AND (MU(C-1)+2)) THEN MU(C)=MU(C)+1:IF MU(C)>3 THEN 12530
  251. 12480 IF CMB(残価数(C),CMB1(C),CMB2(C))=0 THEN G(C)=G(C)+1:GOTO 12520
  252. 12490 R=原子価(ATM(HX(C)+AX(MU(C)),HY(C)+AY(MU(C)),0))-CMB(残価数(C),CMB1(C),CMB2(C))
  253. 12500 IF R=0 THEN G(C)=G(C)+1:GOSUB *ぱっ:C0=C0+1:GOSUB *消去1
  254. 12510 IF R>0 THEN C=C+1:HX(C)=HX(C-1)+AX(MU(C-1)):HY(C)=HY(C-1)+AY(MU(C-1)):GOTO *消去
  255. 12520 MU(C)=MU(C)+1:CMB2(C)=CMB2(C)+1:IF MU(C)<4 THEN GOTO *LOOP3
  256. 12530 PX=HX(C)+1:PY=HY(C)
  257. 12540 IF G(C)=3 AND C>1 THEN G(C)=0:F(C0)=ATM(HX(C),HY(C),1):CX(C0)=HX(C):CY(C0)=HY(C):C0=C0+1:GOSUB *消去2:C=C-1:G(C)=G(C)+1:GOTO 12520
  258. 12550 IF C=1 THEN F(C0)=ATM(HX(C),HY(C),1):CX(C0)=HX(C):CY(C0)=HY(C):GOSUB *消去2:GOSUB *爆発:RETURN
  259. 12560 RETURN
  260. 12570 *爆発'************* 爆発だ! **
  261. 12580 W1=C0:C0=-7:S0=S:FLA=0
  262. 12590 *LOOPBOM
  263. 12600 FOR BC=0 TO 7
  264. 12610 IF BC+C0>S THEN 12660
  265. 12620 IF C0+BC<1 THEN 12660
  266. 12630 IF F(C0+BC)=0THEN IF FLA=0THEN S0=C0+7:FLA=1:GOTO 12660 ELSE GOTO 12660
  267. 12640 F=F(C0+BC):GOSUB *SCHEBOM
  268. 12650 IF BC=7 AND F<>0 THEN PCMPLAY BMB,127
  269. 12660 NEXT
  270. 12670 IF C0>=1 THEN F=F(C0):IF F<>0 THEN GOSUB *SOFF
  271. 12680 FOR I=0 TO (16-W1)*40*2:NEXT:WAIT 3
  272. 12690 IF S0=C0+7 THEN W1=-3
  273. 12700 C0=C0+1:IF C0<S0 THEN *LOOPBOM
  274. 12710 '
  275. 12720 RETURN
  276. 12730 '********************  消去ＳＵＢ ***********************************
  277. 12740 *消去1:ATM(HX(C)+AX(MU(C)),HY(C)+AY(MU(C)),0)=0:ATM(HX(C)+AX(MU(C)),HY(C)+AY(MU(C)),1)=0:ATNUM=ATNUM-1:RETURN
  278. 12750 *消去2:ATM(HX(C),HY(C),0)=0:ATM(HX(C),HY(C),1)=0:ATNUM=ATNUM-1:RETURN
  279. 12760 *ぱっ:PX=HX(C)+AX(MU(C))+1:PY=HY(C)+AY(MU(C)):F(C0)=ATM(HX(C)+AX(MU(C)),HY(C)+AY(MU(C)),1):CX(C0)=HX(C)+AX(MU(C)):CY(C0)=HY(C)+AY(MU(C)):RETURN
  280. 12770 '********************* ＥＮＤＩＮＧ *********************************
  281. 12780 *ENDING:CLS:SPRITE SCREEN (32,0):F=0:MML=0:LOAD@"PIANO.PMB"
  282. 12790 VIEW(0,0)-(319,255):WINDOW(0,0)-(319,255)
  283. 12800 T$(0)="1111010001011100"
  284. 12810 T$(1)="1000011001010010"
  285. 12820 T$(2)="1111010101010010"
  286. 12830 T$(3)="1000010011010010"
  287. 12840 T$(4)="1111010001011100"
  288. 12850 FOR X=0 TO 15:FOR Y=0 TO 4
  289. 12860 IF MID$(T$(Y),X+1,1)="1" THEN F=F+1:X2=X*16-16:Y2=(Y-6)*16:GOSUB *SCHEBALL:GOSUB *PUTATM:GOSUB *SON:F(F)=F
  290. 12870 NEXT Y,X:F0=F:C0=F
  291. 12880 '
  292. 12890 IF SKP=3 THEN MM$="PERFECT!!" ELSE MM$=""
  293. 12900 FOR I=0 TO 255 STEP 16
  294. 12910 SYMBOL(40,40),MM$,1,1,[I,I,0]
  295. 12920 SYMBOL(40,60),"Thank you for playing.",1,1,[I,I,I]:NEXT
  296. 12930 FOR I=0 TO 255 STEP 16
  297. 12940 SYMBOL(40,80),"KOKOMADE'PLAY'SITE",1,1,[I,I,I]:NEXT
  298. 12950 FOR I=0 TO 255 STEP 16
  299. 12960 SYMBOL(40,100),"ITADAITA KOTOWO NANIYORIMO",1,1,[I,I,I]:NEXT
  300. 12970 FOR I=0 TO 255 STEP 16
  301. 12980 SYMBOL(40,120),"KANSYASITEORIMASU.",1,1,[I,I,I]:NEXT
  302. 12990 FOR I=0 TO 255 STEP 16
  303. 13000 SYMBOL(40,140),"TASHOU MUZUKASISUGITA",1,1,[I,I,I]:NEXT
  304. 13010 FOR I=0 TO 255 STEP 16
  305. 13020 SYMBOL(40,160),"KAMOSIREMASEN.",1,1,[I,I,I]:NEXT
  306. 13030 FOR I=0 TO 255 STEP 16
  307. 13040 SYMBOL(40,180),"HANSEISITEORIMASU.",1,1,[I,I,I]:NEXT
  308. 13050 FOR I=0 TO 255 STEP 16
  309. 13060 SYMBOL(40,200)," PUSH A BUTTON",1,1,[0,I,0]:NEXT
  310. 13070 IF PTRIG(1)=0 THEN 13070 ELSE CLS:SC=0:GOSUB *SCROLL
  311. 13080 FON=0
  312. 13090 FOR SC=0 TO 256*3+16*6 STEP 1:GOSUB *SCROLL:WAIT 10
  313. 13100 L=SC MOD 8:IF (SC MOD 32)=0 THEN GOSUB *FROLL:FON=FON+1
  314. 13110 Y=(SC+240) AND &HFF:IF SC MOD 16>=8 THEN R=1 ELSE R=0
  315. 13120 LINE(0,Y)-(319,Y),AND,[(L+5)*16,(L+8)*16,L*16]
  316. 13130 GOSUB *EMUSIC:NEXT
  317. 13140 FOR SC=16 TO 256+64:GOSUB *SCROLL:WAIT 5
  318. 13150 PX=(SC MOD 16)+2:PY=INT(((240+SC) AND &HFF)/16)-1:CH=0:GOSUB *CHRPUT
  319. 13160 GOSUB *EMUSIC:NEXT
  320. 13170 FOR I=0 TO 144:WAIT 4:ATI=11-(I MOD 6):FOR F=1 TO F0:GOSUB *SCHEBALL
  321. 13180 SPRITE 6,F,0,1:NEXT F:GOSUB *SCROLL:SC=SC+1:GOSUB *EMUSIC:NEXT I
  322. 13190 GOSUB *EMUSIC:IF PLAY(0)=-1 THEN 13190
  323. 13200 WAIT 200
  324. 13210 GOSUB *爆発:WAIT 100:LOAD@"pcm.PMB"
  325. 13220 CLS:SPRITE SCREEN (0,0):SC=0:GOSUB *SCROLL:WAIT 50:GOTO 10320
  326. 13230 '*******************DRAW PATTERN OF STAGE ***************************
  327. 13240 *INITSTAGE:ATNUM=0:ATI=0:F=1
  328. 13250 FOR Y1=0 TO 12:FOR X1=0 TO 13:CH=INSTR("01234OHNCF5",MID$(ST$(Y1,ST),X1+1,1))-1
  329. 13260 IF CH=9 THEN M(X1,Y1)=0:CH=0:X=X1:Y=Y1
  330. 13270 IF CH>=5 AND CH<=8 THEN ATM(X1,Y1,0)=CH-4:ATM=CH-4:ATNUM=ATNUM+1:F=F+1:X2=X1*16:Y2=Y1*16:GOSUB *SCHEATM:GOSUB *PUTATM:GOSUB *SON:CH=0:ATM(X1,Y1,1)=F
  331. 13280 IF CH=10 THEN F=F+1:ATI=0:X2=X1*16:Y2=Y1*16:GOSUB *SCHEBALL:GOSUB *PUTATM:GOSUB *SON:CH=0:PX=X1+1:PY=Y1:GOSUB *CHRPUT:M(X1,Y1)=3:ATM(X1,Y1,1)=F:GOTO 13330
  332. 13290 '
  333. 13300 PX=X1+1:PY=Y1:GOSUB *CHRPUT
  334. 13310 IF CH>=0 AND CH<=2 THEN M(X1,Y1)=0' ELSE M(X1,Y1)=CH-2
  335. 13320 IF CH=3 OR CH=4 THEN M(X1,Y1)=CH-2
  336. 13330 NEXT X1,Y1
  337. 13340 RETURN
  338. 13350 '************************* PUT **************************************
  339. 13360 *CHRPUT:ON CH+1 GOSUB 13370,13380,13390,13400,13410,13420:RETURN
  340. 13370 PUT@A(PX*16,(PY+1)*16)-(PX*16+15,(PY+1)*16+15),NUL0,PSET:RETURN
  341. 13380 PUT@A(PX*16,(PY+1)*16)-(PX*16+15,(PY+1)*16+15),NUL1,PSET:RETURN
  342. 13390 PUT@A(PX*16,(PY+1)*16)-(PX*16+15,(PY+1)*16+15),NUL2,PSET:RETURN
  343. 13400 PUT@A(PX*16,(PY+1)*16)-(PX*16+15,(PY+1)*16+15),BL0,PSET:RETURN
  344. 13410 PUT@A(PX*16,(PY+1)*16)-(PX*16+15,(PY+1)*16+15),BL1,PSET:RETURN
  345. 13420 PUT@A(PX*16,(PY+1)*16)-(PX*16+15,(PY+1)*16+15),CLR,PSET:RETURN
  346. 13430 '****************** ＳＰＲＩＴＥ ************************************
  347. 13440 *SON :    SPRITE 0,F,1:RETURN
  348. 13450 *SOFF :   SPRITE 0,F,0:RETURN
  349. 13460 *SCHEF  : SPRITE 1,F,(F+81)*4:RETURN 
  350. 13470 *SCHEME : PL=PL+1:PL=PL AND &H1:SPRITE 1,0,(PL+M*2)*4:RETURN 
  351. 13480 *SCHEATM :SPRITE 1,F,(ATM*12-4+ATI)*4:RETURN 
  352. 13490 *SCHEBALL:SPRITE 1,F,(69+ATI)*4:RETURN 
  353. 13500 *SCHEBOM :SPRITE 1,F,(7-BC+61)*4:RETURN 
  354. 13510 *PUTATM  : SPRITE 6,F,X2+16-SPRITE(F,6),Y2+16-SPRITE(F,7):RETURN 
  355. 13520 *PUTME   :  SPRITE 6,0,X1+16-SPRITE(0,6),Y1+16-SPRITE(0,7):RETURN 
  356. 13530 '************************* title ************************************
  357. 13540 *TITLE:FOR F=0 TO 7:GOSUB *SOFF:NEXT
  358. 13550 CLS:FOR I=0 TO S:HX(S)=0:HY(S)=0:NEXT:TA=0:BN=0
  359. 13560 T$(0)="4440202011103003"
  360. 13570 T$(1)="4000202010103303"
  361. 13580 T$(2)="4000222010103033"
  362. 13590 T$(3)="4440202011103003"
  363. 13600 FOR Y=0 TO 3:FOR X=0 TO 15
  364. 13610 IF MID$(T$(Y),X+1,1)<>"0" THEN PX=X+1:PY=Y:CH=1:GOSUB *CHRPUT
  365. 13620 NEXT X,Y
  366. 13630 SYMBOL(100,200),"PUSH A BUTTON!",1,.5!
  367. 13640 SYMBOL(101,200),"PUSH A BUTTON!",1,.5!
  368. 13650 FOR Y=0 TO 3
  369. 13660 LINE(92,Y+200)-(239,Y+200),AND,[(Y*4+16)*8,(Y*4+16)*8,(Y*4+16)*8]
  370. 13670 LINE(92,207-Y)-(239,207-Y),AND,[(Y*4+16)*8,(Y*4+16)*8,(Y*4+16)*8]
  371. 13680 NEXT
  372. 13690 R=0:ATM=1:'**********************************************************
  373. 13700 LINE(64,80+16*0)-(64+16*14+15,80+16*6+15),PSET,0,BF
  374. 13710 SYMBOL(64,80+16*0),"        ル－ル説明",1,1
  375. 13720 SYMBOL(64,80+16*1),"ゲームの内容は,原子をつなぎ",1,1
  376. 13730 SYMBOL(64,80+16*2),"分子を造るというものです。",1,1
  377. 13740 SYMBOL(64,80+16*3),"主人公をあやつり,原子を転 ",1,1
  378. 13750 SYMBOL(64,80+16*4),"がし，分子を造ってください｡",1,1
  379. 13760 SYMBOL(64,80+16*5),"ただ,ある結合の法則に従って",1,1
  380. 13770 SYMBOL(64,80+16*6),"造らないと分子はできません｡",1,1
  381. 13780 SKP=3:IF PTRIG(1)=1 THEN RETURN
  382. 13790 SPRITE SCREEN 1:OUT &H440,27:OUT &H442,&H1703,2
  383. 13800 '
  384. 13810 I=0
  385. 13820 FOR F=0 TO 7:RY(F)=0:RX(F)=INT(RND*256-16):RA(F)=INT(RND*15)
  386. 13830 RKI(F)=INT(RND*4)+1:RK(F)=INT(RND*6)+6
  387. 13840 X2=RX(F):Y2=RY(F):ATI=RK(F):ATM=RKI(F):GOSUB *PUTATM
  388. 13850 GOSUB *SCHEATM:GOSUB *SON:NEXT 
  389. 13860 *TLOOP0
  390. 13870 FOR F=0 TO 7
  391. 13880 IF RY(F)>180 THEN RA(F)=-RA(F)*.9!:RY(F)=180:IF ABS(RA(F))<3 THEN RA(F)=0
  392. 13890 RA(F)=RA(F)+1:RY(F)=RY(F)+RA(F)
  393. 13900 X2=RX(F)/2:Y2=RY(F)/2:ATM=RKI(F):RK(F)=RK(F)+I MOD 2:IF RK(F)>11 THEN RK(F)=6
  394. 13910 ATI=RK(F):GOSUB *SCHEATM:GOSUB *PUTATM:NEXT
  395. 13920 IF PTRIG(1)=1 THEN RETURN
  396. 13930 I=I+1:IF I<256 THEN *TLOOP0
  397. 13940 FOR F=0 TO 7:GOSUB *SOFF:NEXT:OUT &H440,27:OUT &H442,&H0303,2
  398. 13950 SPRITE SCREEN 0
  399. 13960 '********************* 説明 *****************************************
  400. 13970 *説明:LINE(64,80+16*0)-(64+16*14+15,80+16*6+15),PSET,0,BF
  401. 13980 SYMBOL(64,140),GN$(BN),1,1
  402. 13990 FOR I=0 TO 7:ATM=GK(BN,I):F=40+I:ATI=0:IF ATM>0 THEN GOSUB *SCHEATM:GOSUB *SON
  403. 14000 NEXT
  404. 14010 FOR I=0 TO 180 STEP 3:R!=(180-I)/50+1:FOR X=0 TO 7:ATM=GK(BN,X)'集合
  405. 14020 F=X+40:RAD!=I/180*3.14159!:IF ATM=0 THEN 14050 
  406. 14030 X2=128+(COS(RAD!)*GX(BN,X)+SIN(RAD!)*GY(BN,X))*16*R!
  407. 14040 Y2=110+(-SIN(RAD!)*GX(BN,X)+COS(RAD!)*GY(BN,X))*16*R!:GOSUB *PUTATM
  408. 14050 NEXT X
  409. 14060 NEXT I
  410. 14070 R!=1:FOR X=0 TO 7:ATM=GK(BN,X)'回転
  411. 14080 F=X+40:RAD!=I/180*3.14159!:IF ATM=0 THEN 14110 
  412. 14090 X2=128+(COS(RAD!)*GX(BN,X)+SIN(RAD!)*GY(BN,X))*16*R!
  413. 14100 Y2=110+(-SIN(RAD!)*GX(BN,X)+COS(RAD!)*GY(BN,X))*16*R!:GOSUB *PUTATM
  414. 14110 NEXT X
  415. 14120 IF PTRIG(1)=1 THEN RETURN
  416. 14130 I=I+3:IF I<360*2 THEN 14070
  417. 14140 FOR X=0 TO 7:F=40+X:GOSUB *SOFF:NEXT
  418. 14150 '
  419. 14160 BN=BN+1:IF BN>4 THEN BN=0:GOTO 13690
  420. 14170 GOTO *説明
  421. 14180 X$=INPUT$(1)
  422. 14190 '******************  初期 設定 **************************************
  423. 14200 *INIT:DIM SPR(255),NUL0(255),NUL1(255),NUL2(255),BL0(255),BL1(255)
  424. 14210 DIM CLR(255),ST$(14,40),M(15,14),AX(3),AY(3),ATM(15,14,1),AM(S)
  425. 14220 DIM 残価数(S),HX(S),HY(S),MU(S),HANT(S),CMB1(S),CMB2(S),F(S)
  426. 14230 DIM GK(8,8),GX(8,8),GY(8,8),GN$(8),Y1$(8,1),Y2$(8,1),Y3$(8,1),Y4$(8,1) 
  427. 14240 DIM CMB(4,20,2),G(S),原子価(4),CX(S*4+4),CY(S*4+4),ATM0(15,14),T$(5)
  428. 14250 DIM RX(15),RY(15),RA(15),RK(15),RKI(15),BMB(32000),EN$(40)
  429. 14260 DIM E1$(30),E2$(30),E3$(30),E4$(30),E5$(30),E6$(30),E7$(30)
  430. 14270 SPRITE SCREEN (0,0)
  431. 14280 FOR I=0 TO S-1:DEF SPRITE 1,I,(0,0),0,1,1,1:NEXT
  432. 14290 FOR I=0 TO 255:READ NUL0(I):NEXT
  433. 14300 FOR I=0 TO 255:READ NUL1(I):NEXT
  434. 14310 FOR I=0 TO 255:READ NUL2(I):NEXT
  435. 14320 FOR I=0 TO 255:READ BL0(I):NEXT
  436. 14330 FOR I=0 TO 255:READ BL1(I):NEXT
  437. 14340 FOR I=0 TO 255:READ CLR(I):NEXT
  438. 14350 'PUT@A((I MOD 20)*16,INT(I/16))-((I MOD 20)*16+15,INT(I/16)+15),CLR
  439. 14360 FOR I=0 TO 3:READ AX(I),AY(I):NEXT
  440. 14370 FOR I=1 TO 4:READ 原子価(I):NEXT
  441. 14380 FOR Z=1 TO 4:FOR X=0 TO 2:FOR Y=0 TO 12:READ CMB(Z,Y,X):NEXT Y,X,Z
  442. 14390 FOR I=0 TO 4:READ GN$(I)
  443. 14400 FOR X=0 TO 7:READ GK(I,X):NEXT
  444. 14410 FOR X=0 TO 7:READ GX(I,X):NEXT
  445. 14420 FOR X=0 TO 7:READ GY(I,X):NEXT
  446. 14430 NEXT
  447. 14440 '
  448. 14450 I=0:READ Y1$:WHILE Y1$>"":READ Y2$,Y3$,Y4$
  449. 14460 Y1$(I,0)=Y1$:Y2$(I,0)=Y2$:Y3$(I,0)=Y3$:Y4$(I,0)=Y4$
  450. 14470 READ Y1$:I=I+1:WEND
  451. 14480 '
  452. 14490 I=0:READ Y1$:WHILE Y1$>"":READ Y2$,Y3$,Y4$
  453. 14500 Y1$(I,1)=Y1$:Y2$(I,1)=Y2$:Y3$(I,1)=Y3$:Y4$(I,1)=Y4$
  454. 14510 READ Y1$:I=I+1:WEND
  455. 14520 '
  456. 14530 I=0:READ Y1$:WHILE Y1$>"":READ Y2$,Y3$,Y4$,Y5$,Y6$,Y7$
  457. 14540 E1$(I)=Y1$:E2$(I)=Y2$:E3$(I)=Y3$:E4$(I)=Y4$
  458. 14550 E5$(I)=Y5$:E6$(I)=Y6$:E7$(I)=Y7$
  459. 14560 READ Y1$:I=I+1:WEND
  460. 14570 FOR I=0 TO 19:READ EN$(I):NEXT
  461. 14580 '
  462. 14590 LOAD@"BOMB.SND",BMB
  463. 14600 '
  464. 14610 '
  465. 14620 '
  466. 14630 '
  467. 14640 FOR ST=0 TO M-1:FOR Y=0 TO 12:READ ST$(Y,ST):NEXT Y,ST
  468. 14650 DON$="T255V15@8O7L64C&<B&B-&A&A-&G&G-&F&E&E-&D&D-&C&<B&B-&A&A-&G&G-&F&E&E-&D&D-"
  469. 14660 DOW$="T255V15@8O3L64C&D&E&F&G&A&B&>C&D&E&F&G&A&B&>C&D&E&F&G&A&B&>C&D&E&F&G&A"
  470. 14670 JBK$="T255V15@9O6L64C&<B&B-&A&A-&G&G-&F&E&E-&D&D-&C& V10G&G-&F&E&E-&V9D&D-&C&V8<B&B-&A&A-&V7G&G-&F&V6E&E-&D&D-&V5B&B-&A&A-&V4G&G-&F&V3E&E-&D&D-G-&F&V2E&E-&D&D-"
  471. 14680 RETURN
  472. 14690 REM No08 ***************** BLOCK ***********************************
  473. 14700 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  474. 14710 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  475. 14720 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  476. 14730 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  477. 14740 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  478. 14750 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  479. 14760 DATA &H529F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  480. 14770 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  481. 14780 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F
  482. 14790 DATA &H529F, &H529F, &H529F, &H211F, &H529F, &H529F, &H529F, &H529F
  483. 14800 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  484. 14810 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  485. 14820 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  486. 14830 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  487. 14840 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  488. 14850 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  489. 14860 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  490. 14870 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  491. 14880 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  492. 14890 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  493. 14900 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  494. 14910 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  495. 14920 DATA &H529F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  496. 14930 DATA &H529F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  497. 14940 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F
  498. 14950 DATA &H529F, &H529F, &H529F, &H211F, &H529F, &H529F, &H529F, &H529F
  499. 14960 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  500. 14970 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  501. 14980 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  502. 14990 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  503. 15000 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  504. 15010 DATA &H211F, &H211F, &H211F, &H211F, &H529F, &H211F, &H211F, &H211F
  505. 15020 REM SPRITE(2) No09
  506. 15030 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  507. 15040 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  508. 15050 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  509. 15060 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  510. 15070 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  511. 15080 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  512. 15090 DATA &H529F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  513. 15100 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  514. 15110 DATA &H529F, &H529F, &H529F, &H529F, &H319F, &H529F, &H529F, &H529F
  515. 15120 DATA &H529F, &H529F, &H529F, &H211F, &H529F, &H529F, &H529F, &H529F
  516. 15130 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H319F, &H529F, &H39DF, &H39DF
  517. 15140 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  518. 15150 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H319F, &H529F, &H39DF, &H39DF
  519. 15160 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  520. 15170 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  521. 15180 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  522. 15190 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  523. 15200 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  524. 15210 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  525. 15220 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  526. 15230 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  527. 15240 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  528. 15250 DATA &H529F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  529. 15260 DATA &H529F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  530. 15270 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F
  531. 15280 DATA &H529F, &H529F, &H529F, &H211F, &H529F, &H529F, &H529F, &H529F
  532. 15290 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  533. 15300 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  534. 15310 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  535. 15320 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  536. 15330 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  537. 15340 DATA &H211F, &H211F, &H211F, &H211F, &H529F, &H211F, &H211F, &H211F
  538. 15350 REM SPRITE(2) No10
  539. 15360 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  540. 15370 DATA &H529F, &H529F, &H253F, &H529F, &H529F, &H529F, &H529F, &H211F
  541. 15380 DATA &H529F, &H39DF, &H39DF, &H319F, &H39DF, &H39DF, &H39DF, &H211F
  542. 15390 DATA &H529F, &H39DF, &H253F, &H253F, &H39DF, &H39DF, &H39DF, &H211F
  543. 15400 DATA &H529F, &H39DF, &H39DF, &H39DF, &H319F, &H39DF, &H39DF, &H211F
  544. 15410 DATA &H529F, &H39DF, &H253F, &H319F, &H253F, &H39DF, &H39DF, &H211F
  545. 15420 DATA &H529F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  546. 15430 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  547. 15440 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F
  548. 15450 DATA &H529F, &H529F, &H529F, &H211F, &H529F, &H529F, &H529F, &H529F
  549. 15460 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  550. 15470 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  551. 15480 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  552. 15490 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  553. 15500 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  554. 15510 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  555. 15520 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  556. 15530 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  557. 15540 DATA &H529F, &H39DF, &H39DF, &H39DF, &H253F, &H253F, &H253F, &H211F
  558. 15550 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  559. 15560 DATA &H529F, &H39DF, &H39DF, &H253F, &H253F, &H253F, &H39DF, &H211F
  560. 15570 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  561. 15580 DATA &H529F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  562. 15590 DATA &H529F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  563. 15600 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F
  564. 15610 DATA &H529F, &H529F, &H529F, &H211F, &H529F, &H529F, &H529F, &H529F
  565. 15620 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  566. 15630 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  567. 15640 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  568. 15650 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  569. 15660 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  570. 15670 DATA &H211F, &H211F, &H211F, &H211F, &H529F, &H211F, &H211F, &H211F
  571. 15680 REM SPRITE(2) No11
  572. 15690 DATA &H6739, &H6739, &H6739, &H6739, &H6739, &H6739, &H6739, &H6739
  573. 15700 DATA &H6739, &H6739, &H6739, &H6739, &H6739, &H6739, &H6739, &H3DEF
  574. 15710 DATA &H6739, &H6739, &H6739, &H6739, &H6739, &H6739, &H6739, &H6739
  575. 15720 DATA &H6739, &H6739, &H6739, &H6739, &H6739, &H6739, &H3DEF, &H3DEF
  576. 15730 DATA &H6739, &H6739, &H5AD6, &H5AD6, &H4E73, &H5AD6, &H5AD6, &H56B5
  577. 15740 DATA &H56B5, &H56B5, &H5294, &H56B5, &H56B5, &H56B5, &H39CE, &H3DEF
  578. 15750 DATA &H6739, &H6739, &H56B5, &H5AD6, &H4E73, &H56B5, &H4E73, &H5EF7
  579. 15760 DATA &H56B5, &H4E73, &H5294, &H5294, &H5AD6, &H56B5, &H39CE, &H3DEF
  580. 15770 DATA &H6739, &H6739, &H5EF7, &H5EF7, &H5EF7, &H4E73, &H5EF7, &H4E73
  581. 15780 DATA &H56B5, &H56B5, &H5294, &H5AD6, &H56B5, &H5294, &H39CE, &H3DEF
  582. 15790 DATA &H6739, &H6739, &H5294, &H5294, &H5AD6, &H4E73, &H5EF7, &H56B5
  583. 15800 DATA &H5EF7, &H5AD6, &H5AD6, &H5294, &H56B5, &H56B5, &H3DEF, &H39CE
  584. 15810 DATA &H6739, &H6739, &H4E73, &H4E73, &H4E73, &H5EF7, &H56B5, &H56B5
  585. 15820 DATA &H5294, &H5AD6, &H4E73, &H56B5, &H5294, &H5294, &H3DEF, &H3DEF
  586. 15830 DATA &H6739, &H6739, &H4E73, &H5EF7, &H5EF7, &H4E73, &H56B5, &H56B5
  587. 15840 DATA &H5AD6, &H5AD6, &H56B5, &H56B5, &H5AD6, &H56B5, &H3DEF, &H3DEF
  588. 15850 DATA &H6739, &H6739, &H5AD6, &H5AD6, &H5AD6, &H5AD6, &H5AD6, &H56B5
  589. 15860 DATA &H5AD6, &H5294, &H56B5, &H56B5, &H5AD6, &H56B5, &H3DEF, &H3DEF
  590. 15870 DATA &H6739, &H6739, &H56B5, &H5294, &H56B5, &H5AD6, &H56B5, &H5294
  591. 15880 DATA &H5AD6, &H56B5, &H5294, &H5294, &H5294, &H5AD6, &H3DEF, &H3DEF
  592. 15890 DATA &H6739, &H6739, &H5294, &H56B5, &H56B5, &H56B5, &H56B5, &H4E73
  593. 15900 DATA &H56B5, &H56B5, &H5294, &H56B5, &H5EF7, &H5AD6, &H3DEF, &H3DEF
  594. 15910 DATA &H6739, &H6739, &H56B5, &H5294, &H4E73, &H4E73, &H4E73, &H56B5
  595. 15920 DATA &H56B5, &H5294, &H5EF7, &H5EF7, &H5294, &H56B5, &H3DEF, &H3DEF
  596. 15930 DATA &H6739, &H6739, &H56B5, &H4E73, &H5AD6, &H5EF7, &H4E73, &H4E73
  597. 15940 DATA &H56B5, &H5294, &H56B5, &H5EF7, &H5294, &H5294, &H39CE, &H3DEF
  598. 15950 DATA &H6739, &H6739, &H56B5, &H5EF7, &H56B5, &H56B5, &H56B5, &H4E73
  599. 15960 DATA &H56B5, &H5294, &H56B5, &H5EF7, &H56B5, &H56B5, &H3DEF, &H3DEF
  600. 15970 DATA &H6739, &H6739, &H3DEF, &H3DEF, &H3DEF, &H3DEF, &H3DEF, &H3DEF
  601. 15980 DATA &H3DEF, &H3DEF, &H3DEF, &H3DEF, &H3DEF, &H3DEF, &H39CE, &H39CE
  602. 15990 DATA &H6739, &H3DEF, &H3DEF, &H3DEF, &H3DEF, &H3DEF, &H3DEF, &H3DEF
  603. 16000 DATA &H3DEF, &H3DEF, &H3DEF, &H3DEF, &H4210, &H3DEF, &H39CE, &H35AD
  604. 16010 REM SPRITE(2) No12
  605. 16020 DATA &H6780, &H6780, &H6780, &H6780, &H6780, &H6780, &H6780, &H6780
  606. 16030 DATA &H6780, &H6780, &H6780, &H6780, &H6780, &H6780, &H6780, &H6780
  607. 16040 DATA &H6780, &H6780, &H6780, &H6780, &H6780, &H6780, &H6780, &H6780
  608. 16050 DATA &H6780, &H6780, &H6780, &H6780, &H6780, &H6780, &H6780, &H52E0
  609. 16060 DATA &H6780, &H6780, &H5F40, &H5F40, &H5F40, &H5F40, &H5F40, &H5F40
  610. 16070 DATA &H5F40, &H6360, &H6780, &H6BA0, &H6FC0, &H73E0, &H52E0, &H52E0
  611. 16080 DATA &H6780, &H6780, &H5F40, &H5F40, &H5F40, &H5F40, &H5F40, &H5F40
  612. 16090 DATA &H6360, &H6780, &H6BA0, &H6FC0, &H73E0, &H6FC0, &H52E0, &H52E0
  613. 16100 DATA &H6780, &H6780, &H5F40, &H5F40, &H5F40, &H5F40, &H5F40, &H6360
  614. 16110 DATA &H6780, &H6BA0, &H6FC0, &H73E0, &H6FC0, &H6BA0, &H52E0, &H52E0
  615. 16120 DATA &H6780, &H6780, &H5F40, &H5F40, &H5F40, &H5F40, &H6360, &H6780
  616. 16130 DATA &H6BA0, &H6FC0, &H73E0, &H6FC0, &H6BA0, &H6780, &H52E0, &H52E0
  617. 16140 DATA &H6780, &H6780, &H5F40, &H5F40, &H5F40, &H6360, &H6780, &H6BA0
  618. 16150 DATA &H6FC0, &H73E0, &H6FC0, &H6BA0, &H6780, &H6360, &H52E0, &H52E0
  619. 16160 DATA &H6780, &H6780, &H5F40, &H5F40, &H6360, &H6780, &H6BA0, &H6FC0
  620. 16170 DATA &H73E0, &H6FC0, &H6BA0, &H6780, &H6360, &H5F40, &H52E0, &H52E0
  621. 16180 DATA &H6780, &H6780, &H5F40, &H6360, &H6780, &H6BA0, &H6FC0, &H73E0
  622. 16190 DATA &H6FC0, &H6BA0, &H6780, &H6360, &H5F40, &H5F40, &H52E0, &H52E0
  623. 16200 DATA &H6780, &H6780, &H6360, &H6780, &H6BA0, &H6FC0, &H73E0, &H6FC0
  624. 16210 DATA &H6BA0, &H6780, &H6360, &H5F40, &H5F40, &H5F40, &H52E0, &H52E0
  625. 16220 DATA &H6780, &H6780, &H6780, &H6BA0, &H6FC0, &H73E0, &H6FC0, &H6BA0
  626. 16230 DATA &H6780, &H6360, &H5F40, &H5F40, &H5F40, &H5F40, &H52E0, &H52E0
  627. 16240 DATA &H6780, &H6780, &H6BA0, &H6FC0, &H73E0, &H6FC0, &H6BA0, &H6780
  628. 16250 DATA &H6360, &H5F40, &H5F40, &H5F40, &H5F40, &H5F40, &H52E0, &H52E0
  629. 16260 DATA &H6780, &H6780, &H6FC0, &H73E0, &H6FC0, &H6BA0, &H6780, &H6360
  630. 16270 DATA &H5F40, &H5F40, &H5F40, &H5F40, &H5F40, &H5F40, &H52E0, &H52E0
  631. 16280 DATA &H6780, &H6780, &H73E0, &H6FC0, &H6BA0, &H6780, &H6360, &H5F40
  632. 16290 DATA &H5F40, &H5F40, &H5F40, &H5F40, &H5F40, &H5F40, &H52E0, &H52E0
  633. 16300 DATA &H6780, &H52E0, &H52E0, &H52E0, &H52E0, &H52E0, &H52E0, &H52E0
  634. 16310 DATA &H52E0, &H52E0, &H52E0, &H52E0, &H52E0, &H52E0, &H52E0, &H52E0
  635. 16320 DATA &H52E0, &H52E0, &H52E0, &H52E0, &H52E0, &H52E0, &H52E0, &H52E0
  636. 16330 DATA &H52E0, &H52E0, &H52E0, &H52E0, &H52E0, &H52E0, &H52E0, &H52E0
  637. 16340 REM SPRITE(2) No13
  638. 16350 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  639. 16360 DATA &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H529F, &H211F
  640. 16370 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  641. 16380 DATA &H77E0, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  642. 16390 DATA &H529F, &H39DF, &H77E0, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  643. 16400 DATA &H77E0, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H77E0, &H211F
  644. 16410 DATA &H529F, &H211F, &H211F, &H77E0, &H211F, &H211F, &H211F, &H211F
  645. 16420 DATA &H77E0, &H211F, &H211F, &H211F, &H211F, &H77E0, &H211F, &H211F
  646. 16430 DATA &H529F, &H529F, &H529F, &H529F, &H77E0, &H529F, &H529F, &H529F
  647. 16440 DATA &H529F, &H529F, &H529F, &H211F, &H77E0, &H529F, &H529F, &H529F
  648. 16450 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  649. 16460 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  650. 16470 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  651. 16480 DATA &H39DF, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  652. 16490 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  653. 16500 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  654. 16510 DATA &H529F, &H77E0, &H77E0, &H77E0, &H529F, &H529F, &H529F, &H211F
  655. 16520 DATA &H529F, &H529F, &H529F, &H529F, &H77E0, &H77E0, &H77E0, &H211F
  656. 16530 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  657. 16540 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  658. 16550 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  659. 16560 DATA &H529F, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H39DF, &H211F
  660. 16570 DATA &H529F, &H211F, &H211F, &H211F, &H77E0, &H211F, &H211F, &H211F
  661. 16580 DATA &H529F, &H211F, &H211F, &H77E0, &H211F, &H211F, &H211F, &H211F
  662. 16590 DATA &H529F, &H529F, &H529F, &H77E0, &H529F, &H529F, &H529F, &H529F
  663. 16600 DATA &H77E0, &H529F, &H529F, &H211F, &H77E0, &H529F, &H529F, &H529F
  664. 16610 DATA &H39DF, &H39DF, &H77E0, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  665. 16620 DATA &H77E0, &H39DF, &H39DF, &H211F, &H529F, &H77E0, &H39DF, &H39DF
  666. 16630 DATA &H39DF, &H39DF, &H39DF, &H39DF, &H529F, &H39DF, &H39DF, &H39DF
  667. 16640 DATA &H77E0, &H39DF, &H39DF, &H211F, &H529F, &H39DF, &H39DF, &H39DF
  668. 16650 DATA &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F, &H211F
  669. 16660 DATA &H211F, &H211F, &H211F, &H211F, &H529F, &H211F, &H211F, &H211F
  670. 16670 '************************ STAGE DATA ********************************
  671. 16680 DATA 0,-1,1,0,0,1,-1,0
  672. 16690 '************************ 原子価  ***********************************
  673. 16700 DATA 2,1,3,4
  674. 16710 '************************ 判定用 ＤＡＴＡ ***************************
  675. 16720 '原子価 1
  676. 16730 DATA  1, 0, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
  677. 16740 DATA  0, 1, 0,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
  678. 16750 DATA  0, 0, 1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
  679. 16760 '原子価 2
  680. 16770 DATA  0, 1, 1, 2, 0, 0,-1,-1,-1,-1,-1,-1,-1 
  681. 16780 DATA  1, 0, 1, 0, 2, 0,-1,-1,-1,-1,-1,-1,-1
  682. 16790 DATA  1, 1, 0, 0, 0, 2,-1,-1,-1,-1,-1,-1,-1
  683. 16800 '原子価 3
  684. 16810 DATA  1, 0, 0, 1, 1, 2, 2, 0, 0, 3,-1,-1,-1
  685. 16820 DATA  1, 1, 2, 2, 0, 1, 0 ,3, 0 ,0,-1,-1,-1
  686. 16830 DATA  1, 2, 1, 0, 2 ,0, 1 ,0, 3 ,0,-1,-1,-1
  687. 16840 '原子価 4
  688. 16850 DATA  2, 1, 1, 2, 0, 2, 1, 1, 0, 0, 3, 3,-1
  689. 16860 DATA  1, 1, 2, 0, 2, 2, 3, 0, 1, 3, 0, 1,-1
  690. 16870 DATA  1, 2, 1, 2, 2, 0, 0, 3, 3, 1, 1, 0,-1
  691. 16880 '******************** デモ用データ **********************************
  692. 16890 DATA 水
  693. 16900 DATA 1,2,2,0,0,0,0,0
  694. 16910 DATA 0,1,0,0,0,0,0,0
  695. 16920 DATA 0,0,1,0,0,0,0,0
  696. 16930 DATA メタン
  697. 16940 DATA 4,2,2, 2, 2,0,0,0
  698. 16950 DATA 0,1,0,-1, 0,0,0,0
  699. 16960 DATA 0,0,1, 0,-1,0,0,0
  700. 16970 DATA 酢酸
  701. 16980 DATA 4,1,2,1, 4, 2, 2, 2
  702. 16990 DATA 0,1,2,0,-1,-1,-2,-1
  703. 17000 DATA 0,0,0,1, 0,-1, 0, 1
  704. 17010 '
  705. 17020 DATA エタン
  706. 17030 DATA 4,4,2, 2, 2, 2,2,2
  707. 17040 DATA 0,1,0,-1, 0, 1,1,2
  708. 17050 DATA 0,0,1, 0,-1,-1,1,0
  709. 17060 '
  710. 17070 DATA ホルムアルデヒド
  711. 17080 DATA 4, 2,2,1,0,0,0,0
  712. 17090 DATA 0,-1,0,1,0,0,0,0
  713. 17100 DATA 0, 0,1,0,0,0,0,0
  714. 17110 '
  715. 17120 '*********************** MML ****************************************
  716. 17130 DATA V10@8T170O4L8Q2
  717. 17140 DATA V8@4T170O3
  718. 17150 DATA V8@4T170O3
  719. 17160 DATA V8@4T170O3
  720. 17170 '
  721. 17180 DATA CEGEGEGE CEGEGEGE <B>DGDGDGD <B>DGDGDGD
  722. 17190 DATA C1&C1<B1&B1
  723. 17200 DATA E1&E1D1&D1
  724. 17210 DATA 
  725. 17220 '
  726. 17230 DATA <A>CFCFCFC <A>CFCFCFC <B>DGDGDGD<B>DGDGDGD
  727. 17240 DATA A1&A1B1&B1>
  728. 17250 DATA C1&C1D1&D1
  729. 17260 DATA 
  730. 17270 DATA  
  731. 17280 '
  732. 17290 '*********************** MML ****************************************
  733. 17300 DATA V10@8T170O4L8Q2
  734. 17310 DATA V8@4T170O3
  735. 17320 DATA V8@4T170O3
  736. 17330 DATA V8@4T170O3
  737. 17340 '
  738. 17350 DATA CDGDGDGD CDGDGDGD <B>DGDGDGD <B>DGDGDGD
  739. 17360 DATA C1&C1<B1&B1
  740. 17370 DATA G1&G1G1&G1
  741. 17380 DATA D1&D1D1&D1
  742. 17390 '
  743. 17400 DATA <A>DGDGDGD <A>DGDGDGD <B>DGDGDGD<B>DGDGDGD
  744. 17410 DATA A1&A1B1&B1>
  745. 17420 DATA G1&G1G1&G1
  746. 17430 DATA D1&D1D1&D1
  747. 17440 DATA  
  748. 17450 '
  749. 17460 '*********************** MML (ENDING)********************************
  750. 17470 DATA V15@1T100O5L16 'T255
  751. 17480 DATA V15@1T100O3L16 'T255
  752. 17490 DATA V15@1T100O3Q8  'T255
  753. 17500 DATA V15@1T100O3Q8  'T255
  754. 17510 DATA V15@1T100O3Q8  'T255
  755. 17520 DATA V15@1T100O6L16 'T255
  756. 17530 DATA V15@102T100
  757. 17540 '
  758. 17550 DATA CDE8E8E8 E8E8FD8.       <B>CD8D8D8 D8D8EC8.
  759. 17560 DATA L8RA>CE< A>FG16F16&F8<  RGB>D< G>EF16E16&E8
  760. 17570 DATA R8A4.&A2              R8G4.&G2 
  761. 17580 DATA R8E4.&E2              R8D4.&D2
  762. 17590 DATA R8C4.&C2             R8<B4.&B2
  763. 17600 DATA CDE8E8E8 E8E8FD8.       <B>CD8D8D8 D8D8EC8.
  764. 17610 DATA 
  765. 17620 '
  766. 17630 '
  767. 17640 DATA <AB>C4.&C2  D4<B4A4G4 
  768. 17650 DATA 
  769. 17660 DATA R8A4.&A2  B2& B2   
  770. 17670 DATA >R8C4.&C2 D2& D2   
  771. 17680 DATA R8A4.&A2  B2& B2   
  772. 17690 DATA <AB>C4.&C2  D4<B4A4G4 
  773. 17700 DATA 
  774. 17710 '
  775. 17720 DATA A2&A2& A1
  776. 17730 DATA 
  777. 17740 DATA A2&A2
  778. 17750 DATA L4<A>E>CA>A R2.
  779. 17760 DATA A2&A2
  780. 17770 DATA L4R8<CA>E>E 
  781. 17780 DATA 
  782. 17790 '*********
  783. 17800 DATA O6E<AB>C<B>CDE G8F4E8 D<GABAB>CD F8E4D8
  784. 17810 DATA 
  785. 17820 DATA O3A4>C4D2 <G4B4>C2
  786. 17830 DATA O3E4G4A2   D4F4G2
  787. 17840 DATA O3C4E4F2  <B4>D4E2
  788. 17850 DATA 
  789. 17860 DATA 
  790. 17870 '
  791. 17880 DATA C<FGAGAB>C E8D4C8  <BEF+G+F+G+AB> D8C4D8
  792. 17890 DATA 
  793. 17900 DATA <F4A4B2 E4G+4A2
  794. 17910 DATA C4E4F2  <B4>D4E2
  795. 17920 DATA <A4>C4D2 <G+4B4>C2
  796. 17930 DATA 
  797. 17940 DATA 
  798. 17950 '
  799. 17960 DATA  E<AB>C<B>CDE G8F4E8 D<GABAB>CD F8E4D8
  800. 17970 DATA 
  801. 17980 DATA  O3A4>C4D2 <G4B4>C2
  802. 17990 DATA  O3E4G4A2   D4F4G2
  803. 18000 DATA  O3C4E4F2  <B4>D4E2
  804. 18010 DATA 
  805. 18020 DATA 
  806. 18030 '
  807. 18040 DATA C<FGAGAB>C E8D4C8  <BEFGAB>CD <A2
  808. 18050 DATA 
  809. 18060 DATA <F4A4B2 E4G4A2
  810. 18070 DATA C4E4F2  <B4>D4E2
  811. 18080 DATA <A4>C4D2 <G4B4>C2
  812. 18090 DATA 
  813. 18100 DATA 
  814. 18110 '
  815. 18120 DATA O4L4> C < >   A   > C<  >  E   L4      A>  C<> E< > A8
  816. 18130 DATA O4L4>R16<A>    C  >  <E >   <A8.>   L4 R16  C> <E ><A>   C16
  817. 18140 DATA O4L4>R8 < >C    E >  < A>   < >C8  L4 R8 <>E> <A><>C     ' E8
  818. 18150 DATA O4L4>R8.< > E    A>  <  >C  < >E16 L4 R8.<>A><>C< >E8   ' A16
  819. 18160 DATA A1 A2.
  820. 18170 DATA 
  821. 18180 DATA 
  822. 18190 '
  823. 18200 '*******
  824. 18210 DATA L16O5CDE8E8E8 E8E8GF8.       <B>CD8D8D8 D8D8FE8.
  825. 18220 DATA O3L8RA>CE< A>FG16F16&F8<  RGB>D< G>EF16E16&E8
  826. 18230 DATA O3R8A4.&A2              R8G4.&G2 
  827. 18240 DATA O3R8E4.&E2              R8D4.&D2
  828. 18250 DATA O3R8C4.&C2             R8<B4.&B2
  829. 18260 DATA L16O6CDE8E8E8 E8E8GF8.       <B>CD8D8D8 D8D8FE8.
  830. 18270 DATA 
  831. 18280 '
  832. 18290 DATA <AB>C4.&C2  D4<B4A4G4 
  833. 18300 DATA 
  834. 18310 DATA R8A4.&A2  B2& B2   
  835. 18320 DATA >R8C4.&C2 D2& D2   
  836. 18330 DATA R8A4.&A2  B2& B2   
  837. 18340 DATA <AB>C4.&C2  D4<B4A4G4 
  838. 18350 DATA 
  839. 18360 '
  840. 18370 DATA >E2&E2& A2.
  841. 18380 DATA 
  842. 18390 DATA <A2&A2& >C2.
  843. 18400 DATA L8C<A>CEA EA>CE CEA>C< A>C
  844. 18410 DATA C2&C2   E2.
  845. 18420 DATA 
  846. 18430 DATA 
  847. 18440 '
  848. 18450 DATA L16O5CDE8E8E8 E8E8GF8.       <B>CD8D8D8 D8D8FE8.
  849. 18460 DATA O3L8RA>CE< A>FG16F16&F8<  RGB>D< G>EF16E16&E8
  850. 18470 DATA O3R8A4.&A2              R8G4.&G2 
  851. 18480 DATA O3R8E4.&E2              R8D4.&D2
  852. 18490 DATA O3R8C4.&C2             R8<B4.&B2
  853. 18500 DATA L16O6CDE8E8E8 E8E8GF8.       <B>CD8D8D8 D8D8FE8.
  854. 18510 DATA 
  855. 18520 '
  856. 18530 DATA <AB>C4.&C2  D4<B4A4G4 
  857. 18540 DATA 
  858. 18550 DATA R8A4.&A2  B2& B2   
  859. 18560 DATA >R8C4.&C2 D2& D2   
  860. 18570 DATA R8A4.&A2  B2& B2   
  861. 18580 DATA <AB>C4.&C2  D4<B4A4G4 
  862. 18590 DATA 
  863. 18600 '
  864. 18610 DATA A2&A2& A1
  865. 18620 DATA 
  866. 18630 DATA A2&A2
  867. 18640 DATA L4<A>E>CA>A R2.
  868. 18650 DATA A2&A2
  869. 18660 DATA L4R8<CA>E>E 
  870. 18670 DATA 
  871. 18680 '*******
  872. 18690 DATA O6E<AB>C<B>CDE G8F4E8 D<GABAB>CD F8E4D8
  873. 18700 DATA 
  874. 18710 DATA O3A4>C4D2 <G4B4>C2
  875. 18720 DATA O3E4G4A2   D4F4G2
  876. 18730 DATA O3C4E4F2  <B4>D4E2
  877. 18740 DATA 
  878. 18750 DATA 
  879. 18760 '
  880. 18770 DATA C<FGAGAB>C E8D4C8  <BEF+G+F+G+AB> D8C4D8
  881. 18780 DATA 
  882. 18790 DATA <F4A4B2 E4G+4A2
  883. 18800 DATA C4E4F2  <B4>D4E2
  884. 18810 DATA <A4>C4D2 <G+4B4>C2
  885. 18820 DATA 
  886. 18830 DATA 
  887. 18840 '
  888. 18850 DATA  E<AB>C<B>CDE G8F4E8 D<GABAB>CD F8E4D8
  889. 18860 DATA 
  890. 18870 DATA  O3A4>C4D2 <G4B4>C2
  891. 18880 DATA  O3E4G4A2   D4F4G2
  892. 18890 DATA  O3C4E4F2  <B4>D4E2
  893. 18900 DATA 
  894. 18910 DATA 
  895. 18920 '
  896. 18930 DATA C<FGAGAB>C E8D4C8  <BEFGAB>CD <A2
  897. 18940 DATA 
  898. 18950 DATA <F4A4B2 E4G4A2
  899. 18960 DATA C4E4F2  <B4>D4E2
  900. 18970 DATA <A4>C4D2 <G4B4>C2
  901. 18980 DATA 
  902. 18990 DATA 
  903. 19000 '
  904. 19010 DATA O4L4> C < >   A   > C<  >  E   L4      A>  C<> E< > A8
  905. 19020 DATA O4L4>R16<A>    C  >  <E >   <A8.>   L4 R16  C> <E ><A>   C16
  906. 19030 DATA O4L4>R8 < >C    E >  < A>   < >C8  L4 R8 <>E> <A><>C    'E8
  907. 19040 DATA O4L4>R8.< > E    A>  <  >C  < > E16 L4 R8.<>A><>C< >E8   ' A16
  908. 19050 DATA A1A2.
  909. 19060 DATA 
  910. 19070 DATA 
  911. 19080 '
  912. 19090 '*********
  913. 19100 DATA L16O5CDE8E8E8 E8E8GF8.       <B>CD8D8D8 D8D8FE8.
  914. 19110 DATA O3L8RA>CE< A>FG16F16&F8<  RGB>D< G>EF16E16&E8
  915. 19120 DATA O3R8A4.&A2              R8G4.&G2 
  916. 19130 DATA O3R8E4.&E2              R8D4.&D2
  917. 19140 DATA O3R8C4.&C2             R8<B4.&B2
  918. 19150 DATA L16O6CDE8E8E8 E8E8GF8.       <B>CD8D8D8 D8D8FE8.
  919. 19160 DATA 
  920. 19170 '
  921. 19180 DATA <AB>C4.&C2  D4<B4A4G4 
  922. 19190 DATA 
  923. 19200 DATA R8A4.&A2  B2& B2   
  924. 19210 DATA >R8C4.&C2 D2& D2   
  925. 19220 DATA R8A4.&A2  B2& B2   
  926. 19230 DATA <AB>C4.&C2  D4<B4A4G4 
  927. 19240 DATA 
  928. 19250 '
  929. 19260 DATA >E2&E2& A2.
  930. 19270 DATA 
  931. 19280 DATA <A2&A2& >C2.
  932. 19290 DATA L8C<A>CEA EA>C E CEA>C< A>C
  933. 19300 DATA C2&C2   E2.
  934. 19310 DATA 
  935. 19320 DATA 
  936. 19330 '
  937. 19340 DATA L16O5CDE8E8E8 E8E8GF8.       <B>CD8D8D8 D8D8FE8.
  938. 19350 DATA O3L8RA>CE< A>FG16F16&F8<  RGB>D< G>EF16E16&E8
  939. 19360 DATA O3R8A4.&A2              R8G4.&G2 
  940. 19370 DATA O3R8E4.&E2              R8D4.&D2
  941. 19380 DATA O3R8C4.&C2             R8<B4.&B2
  942. 19390 DATA L16O6CDE8E8E8 E8E8GF8.       <B>CD8D8D8 D8D8FE8.
  943. 19400 DATA 
  944. 19410 '
  945. 19420 DATA <AB>C4.&C2  D4<B4A4G4 
  946. 19430 DATA 
  947. 19440 DATA R8A4.&A2  B2& B2   
  948. 19450 DATA >R8C4.&C2 D2& D2   
  949. 19460 DATA R8A4.&A2  B2& B2   
  950. 19470 DATA <AB>C4.&C2  D4<B4A4G4 
  951. 19480 DATA 
  952. 19490 '
  953. 19500 DATA A2&A2& A1
  954. 19510 DATA 
  955. 19520 DATA A2&A2
  956. 19530 DATA L4<A>E>C+A>A R2.
  957. 19540 DATA A2&A2
  958. 19550 DATA L4R8<C+A>E>E 
  959. 19560 DATA 
  960. 19570 DATA 
  961. 19580 '********************************************************************
  962. 19590 DATA 制作者 N.HOMMA
  963. 19600 DATA 手伝ってくれた人
  964. 19610 DATA "      T.ISIKAWA
  965. 19620 DATA "      B.SUZUKI 
  966. 19630 DATA "      M.MIZO
  967. 19640 DATA "      O.HOSOYA
  968. 19650 DATA "      A.SATO
  969. 19660 DATA "      S.KOTANI
  970. 19670 DATA SPECIAL THANKS
  971. 19680 DATA "      P.YUUKI
  972. 19690 DATA "      Y.SEKINE
  973. 19700 DATA "      MINNA NAKAYOSI
  974. 19710 DATA "      N.ABE
  975. 19720 DATA 
  976. 19730 DATA MUSIC  WATAKUSI
  977. 19740 DATA 
  978. 19750 DATA GRAPHICS WATAKUSIME
  979. 19760 DATA "         *
  980. 19770 DATA "         *
  981. 19780 DATA "         *
  982. 19790 '***************************面データ ********************************
  983. 19800 ' 1面
  984. 19810 DATA 44444444444444
  985. 19820 DATA 44000440004444
  986. 19830 DATA 40040000404444
  987. 19840 DATA 44444444400004
  988. 19850 DATA 40000000000004
  989. 19860 DATA 40000000000004
  990. 19870 DATA 4000O0000O0004
  991. 19880 DATA 40000000000004
  992. 19890 DATA 4000O000000004
  993. 19900 DATA 40000005000004
  994. 19910 DATA 40000000000004
  995. 19920 DATA 40000OC0000004
  996. 19930 DATA 44444444444444
  997. 19940 ' 2面
  998. 19950 DATA 44444444444444
  999. 19960 DATA 44000444000044
  1000. 19970 DATA 43000000000004
  1001. 19980 DATA 40000000000004
  1002. 19990 DATA 40000H000O0004
  1003. 20000 DATA 400H0000000004
  1004. 20010 DATA 4000000000F004
  1005. 20020 DATA 40000000000004
  1006. 20030 DATA 40000000000004
  1007. 20040 DATA 40000000000004
  1008. 20050 DATA 400H00H0000004
  1009. 20060 DATA 40OC00CO000004
  1010. 20070 DATA 44444444444444
  1011. 20080 ' 3面
  1012. 20090 DATA 44444444444444
  1013. 20100 DATA 44400O0000O004
  1014. 20110 DATA 44HCH400000004
  1015. 20120 DATA 44HCH40000H004
  1016. 20130 DATA 44HCH440000004
  1017. 20140 DATA 44HCH44F000004
  1018. 20150 DATA 44HCH444000004
  1019. 20160 DATA 44HCH444400044
  1020. 20170 DATA 44HCH444444444
  1021. 20180 DATA 44HCH444444444
  1022. 20190 DATA 44HCH444444444
  1023. 20200 DATA 444H4444444444
  1024. 20210 DATA 44444444444444
  1025. 20220 ' 4面
  1026. 20230 DATA 44444444444444
  1027. 20240 DATA 40000H4H000004
  1028. 20250 DATA 4000HC0CH00O04
  1029. 20260 DATA 40000H0H000004
  1030. 20270 DATA 40000000000004
  1031. 20280 DATA 4O000000000004
  1032. 20290 DATA 40000C00000004
  1033. 20300 DATA 4O000000000H04
  1034. 20310 DATA 40000000000004
  1035. 20320 DATA 40000000000004
  1036. 20330 DATA 400F0000000O04
  1037. 20340 DATA 40000000000H04
  1038. 20350 DATA 44444444444444
  1039. 20360 ' 5面
  1040. 20370 DATA 44444444444444
  1041. 20380 DATA 40000000000004
  1042. 20390 DATA 400000F0000004
  1043. 20400 DATA 4N000000000004
  1044. 20410 DATA 4C00HH0H000004
  1045. 20420 DATA 40000000000H04
  1046. 20430 DATA 400000N0000004
  1047. 20440 DATA 40000000000004
  1048. 20450 DATA 40000000000004
  1049. 20460 DATA 40000000000004
  1050. 20470 DATA 40000000000004
  1051. 20480 DATA 400004H4HO0004
  1052. 20490 DATA 44444444444444
  1053. 20500 ' 6面
  1054. 20510 DATA 44444444444444
  1055. 20520 DATA 4N500000044404
  1056. 20530 DATA 40555555000004
  1057. 20540 DATA 40HHHHHH500554
  1058. 20550 DATA 4HCCCCCC0H0004
  1059. 20560 DATA 40HHHHHH500004
  1060. 20570 DATA 40555555005004
  1061. 20580 DATA 4000500F000004
  1062. 20590 DATA 40005000050004
  1063. 20600 DATA 4005H5005C5004
  1064. 20610 DATA 40005050050004
  1065. 20620 DATA 40000000000004
  1066. 20630 DATA 44444444444444
  1067. 20640 ' 7面
  1068. 20650 DATA 44444444444444
  1069. 20660 DATA 40H4000H000004
  1070. 20670 DATA 4HCH40HCH00004
  1071. 20680 DATA 4OC400HCH00004
  1072. 20690 DATA 44O400HCH00004
  1073. 20700 DATA 4404000O000004
  1074. 20710 DATA 44040000000004
  1075. 20720 DATA 44H40000000004
  1076. 20730 DATA 4000000H000H04
  1077. 20740 DATA 40H0C0HFN000H4
  1078. 20750 DATA 4000000C004H04
  1079. 20760 DATA 40440400444444
  1080. 20770 DATA 44444444444444
  1081. 20780 ' 8面
  1082. 20790 DATA 44444444444444
  1083. 20800 DATA 44444444444444
  1084. 20810 DATA 44444444444444
  1085. 20820 DATA 44444400000O44
  1086. 20830 DATA 44444400004444
  1087. 20840 DATA 44444400004444
  1088. 20850 DATA 44444400444444
  1089. 20860 DATA 400440C0444444
  1090. 20870 DATA 40N44040444444
  1091. 20880 DATA 40004000444444
  1092. 20890 DATA 40H00N00444444
  1093. 20900 DATA 4F000000H44444
  1094. 20910 DATA 44444444444444
  1095. 20920 ' 9面
  1096. 20930 DATA 44444444444444
  1097. 20940 DATA 4F0N0000000004
  1098. 20950 DATA 44444444444H04
  1099. 20960 DATA 40HHHHHHHHH004
  1100. 20970 DATA 4HCCCCCCCCCCH4
  1101. 20980 DATA 4HHHHHHHHHHH04
  1102. 20990 DATA 404444444444C4
  1103. 21000 DATA 4OH0000H000C04
  1104. 21010 DATA 44444444444C04
  1105. 21020 DATA 40HHHH00H00H04
  1106. 21030 DATA 4HCCCCO44440H4
  1107. 21040 DATA 40HHHH44444004
  1108. 21050 DATA 44444444444444
  1109. 21060 ' 10面
  1110. 21070 DATA 44444444444444
  1111. 21080 DATA 44040404F404O4
  1112. 21090 DATA 4000000NH00004
  1113. 21100 DATA 44000000000044
  1114. 21110 DATA 40000000000004
  1115. 21120 DATA 44000400000044
  1116. 21130 DATA 40000000400004
  1117. 21140 DATA 44000H00000044
  1118. 21150 DATA 40000000000004
  1119. 21160 DATA 4440030000H044
  1120. 21170 DATA 4000HCCH000004
  1121. 21180 DATA 44040HH0404044
  1122. 21190 DATA 44444444444444
  1123. 21200 ' 11面
  1124. 21210 DATA 44444444444444
  1125. 21220 DATA 4FH0O0H0O0H0O4
  1126. 21230 DATA 4O0H0O0H0O0H04
  1127. 21240 DATA 40O0H0O0H0O0H4
  1128. 21250 DATA 4H0O0H0O0H0O04
  1129. 21260 DATA 40000000000004
  1130. 21270 DATA 40000000000004
  1131. 21280 DATA 40000000000004
  1132. 21290 DATA 4O0H0O0H0O0H04
  1133. 21300 DATA 40O0H0O0H0O0H4
  1134. 21310 DATA 4H0O0H0O0H0O04
  1135. 21320 DATA 40H0O0H0O0H0O4
  1136. 21330 DATA 44444444444444
  1137. 21340 ' 12面
  1138. 21350 DATA 44444444444444
  1139. 21360 DATA 43400000003004
  1140. 21370 DATA 4O30000003O304
  1141. 21380 DATA 403340003C3N34
  1142. 21390 DATA 4O30300003H304
  1143. 21400 DATA 4H300340003004
  1144. 21410 DATA 40300030000004
  1145. 21420 DATA 4H300C00340004
  1146. 21430 DATA 4O300040300004
  1147. 21440 DATA 4030040C003404
  1148. 21450 DATA 4O300O00003004
  1149. 21460 DATA 40300000000434
  1150. 21470 DATA 44444444444444
  1151. 21480 ' 13面
  1152. 21490 DATA 44444444444444
  1153. 21500 DATA 40000440000004
  1154. 21510 DATA 400004300O0004
  1155. 21520 DATA 4000C040000O04
  1156. 21530 DATA 40O00040400004
  1157. 21540 DATA 400000H0C00004
  1158. 21550 DATA 40000400404044
  1159. 21560 DATA 40000400004004
  1160. 21570 DATA 4000N000040004
  1161. 21580 DATA 40004004000C04
  1162. 21590 DATA 40000444040004
  1163. 21600 DATA 40C00040000004
  1164. 21610 DATA 44444444444444
  1165. 21620 ' 14面
  1166. 21630 DATA 44444444444444
  1167. 21640 DATA 44444000400004
  1168. 21650 DATA 4400N000440N04
  1169. 21660 DATA 43000400400H04
  1170. 21670 DATA 40004F40000004
  1171. 21680 DATA 400N000C00H004
  1172. 21690 DATA 40O00H0N00H004
  1173. 21700 DATA 40040C04000004
  1174. 21710 DATA 400400400O4004
  1175. 21720 DATA 400400C0000004
  1176. 21730 DATA 4O040040040004
  1177. 21740 DATA 40000000000004
  1178. 21750 DATA 44444444444444
  1179. 21760 ' 15面
  1180. 21770 DATA 44444444444444
  1181. 21780 DATA 442244444444H4
  1182. 21790 DATA 4242022222N404
  1183. 21800 DATA 42CO4244424404
  1184. 21810 DATA 42424H40024N04
  1185. 21820 DATA 4242202C024404
  1186. 21830 DATA 4233C040004404
  1187. 21840 DATA 42440044444404
  1188. 21850 DATA 4O4400000N0004
  1189. 21860 DATA 40222O24444004
  1190. 21870 DATA 44441H244440C4
  1191. 21880 DATA 444411222F4004
  1192. 21890 DATA 44444444444444
  1193. 21900 ' 16面
  1194. 21910 DATA 44444444444444
  1195. 21920 DATA 433334F3333334
  1196. 21930 DATA 43H33304333004
  1197. 21940 DATA 433334C3334334
  1198. 21950 DATA 4333330400O334
  1199. 21960 DATA 433334C300O334
  1200. 21970 DATA 43333304HHC334
  1201. 21980 DATA 44333433C00H04
  1202. 21990 DATA 4433H304000H04
  1203. 22000 DATA 44333433ONOH04
  1204. 22010 DATA 44334H04000HC4
  1205. 22020 DATA 44333H000N0403
  1206. 22030 DATA 44444444444443
  1207. 22040 ' 17面
  1208. 22050 DATA 44444444444444
  1209. 22060 DATA 4N0O000N000004
  1210. 22070 DATA 40000400400N04
  1211. 22080 DATA 404440C0400004
  1212. 22090 DATA 40004000C0H004
  1213. 22100 DATA 40N2O4H4400044
  1214. 22110 DATA 4H024444004044
  1215. 22120 DATA 423242F4244244
  1216. 22130 DATA 443200H0000044
  1217. 22140 DATA 44324022333344
  1218. 22150 DATA 442H20N03C4444
  1219. 22160 DATA 44333333344444
  1220. 22170 DATA 44444444444444
  1221. 22180 ' 18面
  1222. 22190 DATA 44444444444444
  1223. 22200 DATA 40000000000004
  1224. 22210 DATA 404000N0000034
  1225. 22220 DATA 400C0000C33004
  1226. 22230 DATA 40040000000004
  1227. 22240 DATA 4444444C444444
  1228. 22250 DATA 4000000C000004
  1229. 22260 DATA 430C003H0N0004
  1230. 22270 DATA 40000043440004
  1231. 22280 DATA 400H00N0004H04
  1232. 22290 DATA 4003040C003044
  1233. 22300 DATA 40040000000004
  1234. 22310 DATA 44444444444444
  1235. 22320 ' 19面
  1236. 22330 DATA 44444444444444
  1237. 22340 DATA 4O00444F400404
  1238. 22350 DATA 4400000000N004
  1239. 22360 DATA 44004444000004
  1240. 22370 DATA 44H044040000H4
  1241. 22380 DATA 400C4444C000O4
  1242. 22390 DATA 4000000000O004
  1243. 22400 DATA 400H4444000004
  1244. 22410 DATA 40000044400004
  1245. 22420 DATA 4O0N0004040004
  1246. 22430 DATA 40000004N00004
  1247. 22440 DATA 40000044010014
  1248. 22450 DATA 44444444444444
  1249. 22460 ' 20面
  1250. 22470 DATA 44444444444444
  1251. 22480 DATA 4000000O0002N4
  1252. 22490 DATA 40C44044440C04
  1253. 22500 DATA 4000N2N0000N04
  1254. 22510 DATA 404N0444200O04
  1255. 22520 DATA 4CH4F4410C4O04
  1256. 22530 DATA 4H40O04440H004
  1257. 22540 DATA 44002000000014
  1258. 22550 DATA 4C00C04C5N4404
  1259. 22560 DATA 4C444444044004
  1260. 22570 DATA 4N4444040O0H04
  1261. 22580 DATA 4H444000000004
  1262. 22590 DATA 44444444444444
  1263.